home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / ESCFILE2.M < prev    next >
Encoding:
Text File  |  1989-04-28  |  1.5 KB  |  48 lines
  1. (*$c-*)
  2. module t; (*$E MOS *)
  3. (*
  4.  * test für ctrl-codes in text-files
  5.  *)
  6.  
  7. import tosio;
  8. from inout import WriteString,write,read, writecard,writeln,readstring;
  9. import text,files;
  10.  
  11. const   dateiname = 'g:\dat';
  12.         esc=33C;
  13.         ron='p';
  14.         roff='q';
  15.  
  16. var ch:char; f:files.file;
  17.  
  18. begin
  19.   (* Datei erzeugen, dabei ESC-Codes einfügen *)
  20.   files.create (f, dateiname, files.writeseqtxt,files.replaceold);
  21.   text.WriteString (f,'normal');
  22.   text.write (f,esc);
  23.   text.write (f,ron);
  24.   text.WriteString (f,'reverse');
  25.   text.write (f,esc);
  26.   text.write (f,roff);
  27.   text.WriteString (f,'normal');
  28.   text.writeln(f);
  29.   files.close (f);
  30.  
  31.   (* Datei wieder lesen *)
  32.   files.open (f, dateiname, files.readseqtxt);
  33.   loop
  34.     text.read (f,ch);
  35.     if text.eol (f) then
  36.       if files.eof (f) then exit end;
  37.       writeln
  38.     else
  39.       write (ch)
  40.     end
  41.   end;
  42.   files.close (f);
  43.  
  44.   read(ch)
  45. end t.
  46. ə
  47. (* $FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$00000317$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688AÇ$000002BAT.......T.......T.......T.......T.......T...............T...T...T.......T.......$0000037E$0000009C$0000031A$000002F2$00000352$FFF0688A$0000038A$000002BA$0000016C$000002BA$FFF0688A$0000036B$FFF0688A$00000363$00000317$00000363¿ÇÇ*)
  48.